home *** CD-ROM | disk | FTP | other *** search
- raw 352:* {
- set %adrs $6 $+ ! $+ $3 $+ @ $+ $4
- set %clones $mask(%adrs,2)
- if (%clones isin %clist) { /inc %clns | %nclns = %nclns $6 }
- %clist = %clist %clones
- set %addy $mask(%adrs,3)
- inc %ppl
- if (($level(%addy) == =999) || ($level(%addy) == 999)) { /inc %enem | /kick $2 $6 Banned: Get Out! }
- if (($left(2,$7) == H@) || ($left(2,$7) == G@)) { /inc %fops } | else { /inc %nops }
- if (G isin $7) { /inc %appl }
- if (+ isin $7) { /inc %vppl }
- if (($left(2,$7) == H*) || ($left(2,$7) == G*)) { /inc %found | %iropn = %iropn $6 }
- if (($level(%addy) > 199) && ($level(%addy) < 501) && ($6 !isop $2)) { /mode $2 +o $6 }
- }
-